Public Class frmTime
    Private Sub btnHourUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHourUp.Click
        If txtHour.Text = "24" Then
            Return
        Else
            txtHour.Text = CStr(CInt(txtHour.Text) + 1)
        End If
    End Sub

    Private Sub btnHourDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHourDown.Click
        If txtHour.Text = "1" Then
            Return
        Else
            txtHour.Text = CStr(CInt(txtHour.Text) - 1)
        End If
    End Sub

    Private Sub btnMinUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMinUp.Click
        If txtMinute.Text = "55" Then
            txtHour.Text = CStr(CInt(txtHour.Text) + 1)
            txtMinute.Text = "0"
        Else
            txtMinute.Text = CStr(CInt(txtMinute.Text) + 5)
        End If

    End Sub

    Private Sub btnMinDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMinDown.Click
        If txtMinute.Text = "0" Then
            Return
        Else
            txtMinute.Text = CStr(CInt(txtMinute.Text) - 5)
        End If

    End Sub


    Private Sub frmTime_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Try
            GC.Collect()
            'Me.Dispose()
        Catch ex As Exception

        End Try
    End Sub
End Class